home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dflow.arc / CUSTS.PRG < prev    next >
Encoding:
Text File  |  1985-04-08  |  573 b   |  31 lines
  1. * orders.prg
  2. public ans
  3.  
  4. store .t. to t
  5. store .f. to f
  6. set talk off
  7. set procedure to CUSTIO
  8.  
  9. use custs
  10. store T to work
  11. store F to again
  12. do while work
  13.    if .not. again
  14.    clear
  15.    endif
  16.    store F to again
  17.    stor ' ' to ans
  18.    @ 5,27 say "A -- Add a customer"
  19.    @ 7,27 say "L -- List customers"
  20.    @ 9,27 say "M -- Modify a customer"
  21.    @ 11,27 say "P -- Print a customer"
  22.    @ 13,27 say "Q -- Quit"
  23.    @ 17,27 get ans
  24.    @ 17,32 say "choose an option"
  25.    read
  26.    store upper(ans) to ans
  27.    do CUSTSEL
  28. enddo
  29. close procedure
  30. set talk on
  31. P